home *** CD-ROM | disk | FTP | other *** search
/ SGI Hot Mix 18 / Silicon_Graphics_hot mix 18.iso / .bin / 423.pl next >
Perl Script  |  1998-02-23  |  1KB  |  46 lines
  1. #!perl
  2.  
  3. $pjs = $ARGV[0];
  4. $hmp = $ARGV[1];
  5. $proxyport = "1080";
  6.  
  7. $code3[0] = 'REAL_NAME'; $code4[0] = 'mail.identity.username';
  8. $code3[1] = 'SIGNATURE_FILE'; $code4[1] = 'mail.signature_file';
  9. $code3[2] = 'EMAIL_ADDRESS'; $code4[2] = 'mail.identity.useremail';
  10.  
  11. open(PJS, $pjs) || die "Can't open PJS!\n";
  12. while(<PJS>){
  13.     if (/^user_pref\("network.hosts.socks_server", "([\w\.\-]+)"\);\s*$/){
  14.         $proxy = $1;
  15.     }
  16.     elsif (/^user_pref\("network.hosts.socks_serverport", "(\d+)"\);\s*$/){
  17.         $proxyport = $1;
  18.     }
  19.         for($i=0; $i<=$#code4; $i++){
  20.                 if ($_ =~ /^user_pref\("$code4[$i]", "([^"]*)"\);\s*$/){
  21.             $value[$i] = $1;
  22.                 }
  23.         }
  24. }
  25. close(PJS);
  26.  
  27. $proxydone = 0;
  28. open(HMP, $hmp) || die "Can't open $hmp!\n";
  29. while(<HMP>){
  30.     $pflag = 0;
  31.     if (/^SOCKS_HOST:/){
  32.         print "SOCKS_HOST:\t\t$proxy:$proxyport\n";
  33.         $pflag = 1;
  34.         $proxydone = 1;
  35.     }
  36.     for($i=0; $i<=$#code3; $i++){
  37.         if ($_ =~ /^$code3[$i]:/){
  38.             print "$code3[$i]:\t\t$value[$i]\n";
  39.             $pflag = 1;
  40.         }
  41.     }
  42.     print $_ if !$pflag;
  43. }
  44. close(HMP);
  45. print "SOCKS_HOST:\t\t$proxy:$proxyport\n" if !$proxydone;
  46.